home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / biz / demo / TwistDemo.lha / TwistDemo / Music / PlayTrack11.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-13  |  732b  |  28 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Show current position.               */
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7.  
  8. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  9.  
  10. 'GETVAR STATUS'
  11.  
  12. if (STATUS > 2) then do
  13.  
  14. 'PLAYTRACK 11'
  15.  
  16. end
  17.  
  18. /* --------------------------- END OF YOUR CODE -------------------------- */
  19. EXIT
  20.  
  21. SYNTAX:
  22. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  23. EXIT
  24.  
  25. ERROR:
  26. SAY "YACDP error at line" SIGL ":" ERR
  27. EXIT
  28.